home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / stnvjw23.zip / SETV16.BAT < prev    next >
DOS Batch File  |  1992-10-25  |  5KB  |  261 lines
  1. rem    settest.bat
  2. rem    for testing Setenv.Com
  3. rem    setenv prompt 1.p
  4. rem    environment space
  5. set name=
  6. set
  7. rem    variable not found
  8. setenv name
  9. if errorlevel 8 goto a0
  10. goto error
  11. :a0
  12. rem    answer    name=%name%
  13. rem    variable created
  14. setenv name john
  15. if errorlevel 3 goto a1
  16. goto error
  17. :a1
  18. rem    answer    name=%name%
  19. rem    variable updated
  20. setenv name test
  21. if errorlevel 5 goto a2
  22. goto error
  23. :a2
  24. rem    answer    name=%name%
  25. rem    variable erased
  26. setenv name
  27. if errorlevel 2 goto a3
  28. goto error
  29. :a3
  30. rem    answer    name=%name%
  31. rem    drive invalid
  32. setenv name %%-9
  33. if errorlevel 9 goto b0
  34. goto error
  35. :b0
  36. rem    answer    name=%name%
  37. rem    drive offset
  38. setenv name %%+1:
  39. if errorlevel 5 goto b1
  40. goto error
  41. :b1
  42. rem    answer    name=%name%
  43. rem    drive offset / drive invalid
  44. setenv name %%-1:
  45. if errorlevel 9 goto b2
  46. if errorlevel 5 goto b2
  47. goto error
  48. :b2
  49. rem    answer    name=%name%
  50. rem    drive offset for current drive
  51. setenv name %%+0:
  52. if errorlevel 5 goto b3
  53. goto error
  54. :b3
  55. rem    answer    name=%name%
  56. rem    DOS version Major and Minor
  57. setenv name MS-DOS V%%dosv.%%dosm
  58. if errorlevel 5 goto b4
  59. goto error
  60. :b4
  61. rem    answer    name=%name%
  62. rem    current working directory
  63. setenv name %%cwd
  64. if errorlevel 5 goto b5
  65. goto error
  66. :b5
  67. rem    answer    name=%name%
  68. rem    current full directory
  69. setenv name %%cfd
  70. if errorlevel 5 goto b6
  71. goto error
  72. :b6
  73. rem    answer    name=%name%
  74. rem    current drive
  75. setenv name %%drive:
  76. if errorlevel 5 goto b7
  77. goto error
  78. :b7
  79. rem    answer    name=%name%
  80. rem    current time
  81. setenv name %%time
  82. if errorlevel 5 goto b8
  83. goto error
  84. :b8
  85. rem    answer    name=%name%
  86. rem    current date
  87. setenv name %%date
  88. if errorlevel 5 goto b9
  89. goto error
  90. :b9
  91. rem    answer    name=%name%
  92. rem    current date
  93. setenv name 1 is %%date1 2 is %%date2 3 is %%date3
  94. if errorlevel 5 goto c0
  95. goto error
  96. :c0
  97. rem    answer    name=%name%
  98. rem    prompt message
  99. setenv name %%prompt Your name 
  100. if errorlevel 5 goto c1
  101. if errorlevel 2 goto c1
  102. goto error
  103. :c1
  104. rem    answer    name=%name%
  105. rem    setenv version 1.5 and greater
  106. rem    change upper case
  107. setenv name
  108. setenv name %%chgup
  109. if errorlevel 8 goto f0
  110. goto error
  111. :f0
  112. rem    answer    name=%name%
  113. rem    setenv version 1.5 and greater
  114. rem    change upper case
  115. setenv name test this is a test message
  116. setenv name %%chgup
  117. if errorlevel 5 goto f1
  118. goto error
  119. :f1
  120. rem    answer    name=%name%
  121. rem    setenv version 1.9 and greater
  122. rem    change lower case
  123. setenv name TEST THIS IS A TEST MESSAGE
  124. setenv name %%chglo
  125. if errorlevel 5 goto f2
  126. goto error
  127. :f2
  128. rem    answer    name=%name%
  129. rem    setenv version 1.2 and greater
  130. rem    replace variable
  131. setenv name
  132. setenv name %%rep#t#h#
  133. if errorlevel 8 goto f3
  134. goto error
  135. :f3
  136. rem    answer    name=%name%
  137. rem    setenv version 1.2 and greater
  138. rem    replace variable
  139. setenv name test
  140. setenv name %%rep#t#h#
  141. if errorlevel 5 goto f4
  142. goto error
  143. :f4
  144. rem    answer    name=%name%
  145. rem    setenv version 1.2 and greater
  146. rem    missing delimiter
  147. setenv name %%rep#t
  148. if errorlevel 6 goto f5
  149. goto error
  150. :f5
  151. rem    answer    name=%name%
  152. rem    setenv version 1.2 and greater
  153. rem    missing delimiter
  154. setenv name %%rep#t#
  155. if errorlevel 6 goto f6
  156. goto error
  157. :f6
  158. rem    answer    name=%name%
  159. rem    setenv version 1.4 test
  160. rem    test Setenv variable data size
  161. setenv name
  162. setenv ans %%prompt %%def#NO# %%upper 170 bytes free in envir. space (Y/N) 
  163. setenv ans %%rep#E##
  164. setenv ans %%rep#S##
  165. setenv ans %%rep# ##
  166. if not "%ans%" == "Y" goto h1
  167. set lett=abcdefghij
  168. set numb=0123456789
  169. set unde=__________
  170. set brac=()()()()
  171. setenv a %lett%%brac%*%lett%*%lett%*%unde%*%lett%*%unde%*
  172. rem    answer    name=%a%
  173. setenv brac
  174. setenv unde
  175. setenv a %%rep#*#%numb%#
  176. set 
  177. setenv a %%rep#%numb%%lett%%numb%%lett%%numb%#-out-#
  178. rem    answer    name=%a%
  179. setenv lett
  180. setenv numb
  181. setenv a
  182. :h1
  183. setenv ans
  184. rem    setenv version 1.3 and greater
  185. rem    root test
  186. setenv c %%prompt %%def#e# Drive letter for Command.Com 
  187. setenv c %%rep# ##
  188. if not "%c%" == "" goto z0
  189. echo root command environment not run missing drive.
  190. goto endtest
  191. :z0
  192. setenv d %%drive:
  193. setenv e %%cwd
  194. %c%:\command  /c setenv %%rce name fred
  195. if errorlevel 1 goto z1
  196. %d%
  197. cd %e%
  198. goto error
  199. :z1
  200. rem    answer    name=%name%
  201. %d%
  202. cd %e%
  203. :endtest
  204. rem    cleanup
  205. setenv c
  206. setenv d
  207. setenv e
  208. setenv name
  209. setenv
  210. rem    End of Test.
  211. goto fini
  212. :error
  213. echo An error occured.
  214. if errorlevel 10 goto full
  215. if errorlevel 9 goto offset
  216. if errorlevel 8 goto not
  217. if errorlevel 7 goto numb
  218. if errorlevel 6 goto del
  219. if errorlevel 5 goto update
  220. if errorlevel 4 goto dos
  221. if errorlevel 3 goto create
  222. if errorlevel 2 goto erase
  223. if errorlevel 1 goto root
  224. if errorlevel 0 goto help
  225. echo no errorlevel status
  226. goto fini
  227. :full
  228. echo environment space is full.
  229. goto fini
  230. :offset
  231. echo offset not valid.
  232. goto fini
  233. :not
  234. echo environment variable not found.
  235. goto fini
  236. :numb
  237. echo not a valid argument.
  238. goto fini
  239. :del
  240. echo unmatched delimiter.
  241. goto fini
  242. :update
  243. echo environment variable updated.
  244. goto fini
  245. :dos
  246. echo don't know about MS-DOS V1.x
  247. goto fini
  248. :create
  249. echo environment variable created.
  250. goto fini
  251. :erase
  252. echo environment variable erased.
  253. goto fini
  254. :root
  255. echo root environment set.
  256. goto fini
  257. :help
  258. echo no command, help issued.
  259. goto fini
  260. :fini
  261.